PROGRAM test;
VAR i : integer;
l : real;
PROCEDURE somme(a:integer; b:integer);
VAR z : integer;
y : real;
BEGIN
a := a+b;
END;
BEGIN
i:=1;
somme(i,i);
i:=32;
END. 
